home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Language/OS - Multiplatform Resource Library
/
LANGUAGE OS.iso
/
prolog
/
ai.prl
/
opnprlg1.hqx
/
Open Prolog
/
Open Prolog.rsrc
/
CODE_21_private predicate definitions.txt
< prev
next >
Wrap
Text File
|
1993-04-15
|
25KB
|
473 lines
# near model CODE resource
# entry label at 0x0000
export_400:
entry:
00000000 0000 0000 ori.b D0, 0x0
00000004 0004 0011 ori.b D4, 0x11
00000008 7379 moveq.l D1, 0x79
0000000A 7374 moveq.l D1, 0x74
0000000C 656D bcs +0x6F /* 0000007B */
0000000E 2463 movea.l A2, -[A3]
00000010 7572 moveq.l D2, 0x72
00000012 7265 moveq.l D1, 0x65
00000014 6E74 bgt +0x76 /* 0000008A */
00000016 246F 7000 movea.l A2, [A7 + 0x7000]
0000001A 0003 0BC8 ori.b D3, 0xC8
0000001E 0C14 0C60 cmpi.b [A4], 0x60 /* '`' */
00000022 0001 0013 ori.b D1, 0x13
00000026 7379 moveq.l D1, 0x79
00000028 7374 moveq.l D1, 0x74
0000002A 656D bcs +0x6F /* 00000099 */
0000002C 2477 696E movea.l A2, <<invalid full ext with IS == 1 and I/IS == 6>>
00000030 646F bcc +0x71 /* 000000A1 */
00000032 7724 moveq.l D3, 0x24
00000034 666C bne +0x6E /* 000000A2 */
00000036 6F61 ble +0x63 /* 00000099 */
00000038 7400 moveq.l D2, 0x00
0000003A 0001 1800 ori.b D1, 0x0
0000003E 0004 000D ori.b D4, 0xD /* '\r' */
00000042 7379 moveq.l D1, 0x79
00000044 7374 moveq.l D1, 0x74
00000046 656D bcs +0x6F /* 000000B5 */
00000048 2463 movea.l A2, -[A3]
0000004A 6C61 bge +0x63 /* 000000AD */
0000004C 7573 moveq.l D2, 0x73
0000004E 6500 0003 bcs +0x5 /* 00000053 */
00000052 2574 25C0 260C move.l [A2 + 0x260C], [ + <<invalid base displacement size>>]
label00000053: // (misaligned)
00000058 0001 0013 ori.b D1, 0x13
0000005C 7379 moveq.l D1, 0x79
0000005E 7374 moveq.l D1, 0x74
00000060 656D bcs +0x6F /* 000000CF */
00000062 2463 movea.l A2, -[A3]
00000064 7574 moveq.l D2, 0x74
00000066 2474 6F24 movea.l A2, <<invalid full ext with I/IS == 4>>
0000006A 6672 bne +0x74 /* 000000DE */
0000006C 616D bsr +0x6F /* 000000DB */
0000006E 6500 0001 bcs +0x3 /* 00000071 */
label00000071: // (misaligned)
00000072 1730 0001 move.b -[A3], [A0 + D0.w + 0x1]
00000076 0009 6765 ori.b A1, 0x65 /* 'e' */
0000007A 7424 moveq.l D2, 0x24
label0000007B: // (misaligned)
0000007C 6672 bne +0x74 /* 000000F0 */
0000007E 616D bsr +0x6F /* 000000ED */
00000080 6500 0001 bcs +0x3 /* 00000083 */
label00000083: // (misaligned)
00000084 16F0 0002 move.b [A3]+, [A0 + D0.w + 0x2]
00000088 0014 6765 ori.b [A4], 0x65 /* 'e' */
// begin alternate branch 0000008A-0000008C
label0000008A:
0000008A 6765 beq +0x67 /* 000000F1 */
// end alternate branch 0000008A-0000008C
label0000008A: // (misaligned)
0000008C 7424 moveq.l D2, 0x24
0000008E 6672 bne +0x74 /* 00000102 */
00000090 616D bsr +0x6F /* 000000FF */
00000092 6524 bcs +0x26 /* 000000B8 */
00000094 6669 bne +0x6B /* 000000FF */
00000096 7273 moveq.l D1, 0x73
00000098 7424 moveq.l D2, 0x24
label00000099: // (misaligned)
0000009A 6361 bls +0x63 /* 000000FD */
0000009C 6C6C bge +0x6E /* 0000010A */
0000009E 0001 1620 ori.b D1, 0x20 /* ' ' */
label000000A1: // (misaligned)
label000000A2:
000000A2 0002 0016 ori.b D2, 0x16
000000A6 6765 beq +0x67 /* 0000010D */
000000A8 7424 moveq.l D2, 0x24
000000AA 6672 bne +0x74 /* 0000011E */
000000AC 616D bsr +0x6F /* 0000011B */
label000000AD: // (misaligned)
000000AE 6524 bcs +0x26 /* 000000D4 */
000000B0 6375 bls +0x77 /* 00000127 */
000000B2 7272 moveq.l D1, 0x72
000000B4 656E bcs +0x70 /* 00000124 */
label000000B5: // (misaligned)
000000B6 7424 moveq.l D2, 0x24
label000000B8:
000000B8 6361 bls +0x63 /* 0000011B */
000000BA 6C6C bge +0x6E /* 00000128 */
000000BC 0001 1664 ori.b D1, 0x64 /* 'd' */
000000C0 0003 0012 ori.b D3, 0x12
000000C4 6765 beq +0x67 /* 0000012B */
000000C6 7424 moveq.l D2, 0x24
000000C8 6672 bne +0x74 /* 0000013C */
000000CA 616D bsr +0x6F /* 00000139 */
000000CC 6524 bcs +0x26 /* 000000F2 */
000000CE 616E bsr +0x70 /* 0000013E */
label000000CF: // (misaligned)
000000D0 6365 bls +0x67 /* 00000137 */
000000D2 7374 moveq.l D1, 0x74
label000000D4:
000000D4 6F72 ble +0x74 /* 00000148 */
000000D6 0001 16A8 ori.b D1, 0xA8
000000DA 0002 000F ori.b D2, 0xF
fn000000DB: // (misaligned)
label000000DE:
000000DE 7379 moveq.l D1, 0x79
000000E0 7374 moveq.l D1, 0x74
000000E2 656D bcs +0x6F /* 00000151 */
000000E4 246C 636F movea.l A2, [A4 + 0x636F]
000000E8 246D 6F64 movea.l A2, [A5 + 0x6F64]
000000EC 6500 0001 bcs +0x3 /* 000000EF */
fn000000ED: // (misaligned)
label000000EF: // (misaligned)
label000000F0:
000000F0 15DC 0002 move.b [PC + 0x2 /* 000000F4 */], [A4]+
// begin alternate branch 000000F2-000000F8
label000000F2:
000000F2 0002 000D ori.b D2, 0xD /* '\r' */
000000F6 7379 moveq.l D1, 0x79
// end alternate branch 000000F2-000000F8
label000000F1: // (misaligned)
label000000F2: // (misaligned)
000000F4 000D 7379 ori.b A5, 0x79 /* 'y' */
000000F8 7374 moveq.l D1, 0x74
000000FA 656D bcs +0x6F /* 00000169 */
000000FC 2461 movea.l A2, -[A1]
label000000FD: // (misaligned)
000000FE 7373 moveq.l D1, 0x73
fn000000FF: // (misaligned)
00000100 6967 bvs +0x69 /* 00000169 */
label00000102:
00000102 6E00 0001 bgt +0x3 /* 00000105 */
label00000105: // (misaligned)
00000106 1550 0004 move.b [A2 + 0x4], [A0]
label0000010A:
0000010A 000A 7379 ori.b A2, 0x79 /* 'y' */
label0000010D: // (misaligned)
0000010E 7374 moveq.l D1, 0x74
00000110 656D bcs +0x6F /* 0000017F */
00000112 2473 7079 movea.l A2, [A3 + D7.w + 0x79]
00000116 0001 01FC ori.b D1, 0xFC
0000011A 0002 0014 ori.b D2, 0x14
fn0000011B: // (misaligned)
label0000011E:
0000011E 7379 moveq.l D1, 0x79
00000120 7374 moveq.l D1, 0x74
00000122 656D bcs +0x6F /* 00000191 */
label00000124:
00000124 2470 6172 616D 6574 6572 movea.l A2, [[A0 + 0x616D6574] + 0x6572]
// begin alternate branch 00000128-0000012E
label00000128:
00000128 616D bsr +0x6F /* 00000197 */
0000012A 6574 bcs +0x76 /* 000001A0 */
label0000012B: // (misaligned)
0000012C 6572 bcs +0x74 /* 000001A0 */
// end alternate branch 00000128-0000012E
label00000127: // (misaligned)
label00000128: // (misaligned)
label0000012B: // (misaligned)
0000012E 2467 movea.l A2, -[A7]
00000130 6574 bcs +0x76 /* 000001A6 */
00000132 0001 0814 ori.b D1, 0x14
00000136 0004 0010 ori.b D4, 0x10
label00000137: // (misaligned)
fn00000139: // (misaligned)
0000013A 7379 moveq.l D1, 0x79
label0000013C:
0000013C 7374 moveq.l D1, 0x74
fn0000013E:
0000013E 656D bcs +0x6F /* 000001AD */
00000140 2472 6561 6424 movea.l A2, [[A2 + 0x6424]]
00000146 7465 moveq.l D2, 0x65
label00000148:
00000148 726D moveq.l D1, 0x6D
0000014A 0001 1C8C ori.b D1, 0x8C
0000014E 0002 0016 ori.b D2, 0x16
label00000151: // (misaligned)
00000152 7379 moveq.l D1, 0x79
00000154 7374 moveq.l D1, 0x74
00000156 656D bcs +0x6F /* 000001C5 */
00000158 2462 movea.l A2, -[A2]
0000015A 6163 bsr +0x65 /* 000001BF */
0000015C 6B74 bmi +0x76 /* 000001D2 */
0000015E 7261 moveq.l D1, 0x61
00000160 636B bls +0x6D /* 000001CD */
00000162 2466 movea.l A2, -[A6]
00000164 7261 moveq.l D1, 0x61
00000166 6D65 blt +0x67 /* 000001CD */
00000168 0001 010C ori.b D1, 0xC
label00000169: // (misaligned)
0000016C 0002 0016 ori.b D2, 0x16
00000170 7379 moveq.l D1, 0x79
00000172 7374 moveq.l D1, 0x74
00000174 656D bcs +0x6F /* 000001E3 */
00000176 2472 6561 6424 movea.l A2, [[A2 + 0x6424]]
0000017C 6175 bsr +0x77 /* 000001F3 */
0000017E 746F moveq.l D2, 0x6F
label0000017F: // (misaligned)
00000180 2466 movea.l A2, -[A6]
00000182 726F moveq.l D1, 0x6F
00000184 6E74 bgt +0x76 /* 000001FA */
00000186 0001 1C48 ori.b D1, 0x48 /* 'H' */
0000018A 0003 000D ori.b D3, 0xD /* '\r' */
0000018E 7379 moveq.l D1, 0x79
00000190 7374 moveq.l D1, 0x74
label00000191: // (misaligned)
00000192 656D bcs +0x6F /* 00000201 */
00000194 2461 movea.l A2, -[A1]
00000196 7373 moveq.l D1, 0x73
fn00000197: // (misaligned)
00000198 6572 bcs +0x74 /* 0000020C */
0000019A 7400 moveq.l D2, 0x00
0000019C 0001 126C ori.b D1, 0x6C /* 'l' */
label000001A0:
000001A0 0003 000D ori.b D3, 0xD /* '\r' */
000001A4 7379 moveq.l D1, 0x79
label000001A6:
000001A6 7374 moveq.l D1, 0x74
000001A8 656D bcs +0x6F /* 00000217 */
000001AA 2467 movea.l A2, -[A7]
000001AC 6C6F bge +0x71 /* 0000021D */
label000001AD: // (misaligned)
000001AE 6261 bhi +0x63 /* 00000211 */
000001B0 6C00 0001 bge +0x3 /* 000001B3 */
label000001B3: // (misaligned)
000001B4 00C4 ori.? D4, 0xFFFFFFFFFFFFFFFF
000001B6 0002 0022 ori.b D2, 0x22 /* '"' */
000001BA 7379 moveq.l D1, 0x79
000001BC 7374 moveq.l D1, 0x74
000001BE 656D bcs +0x6F /* 0000022D */
fn000001BF: // (misaligned)
000001C0 2470 6172 616D 6574 6572 movea.l A2, [[A0 + 0x616D6574] + 0x6572]
label000001C5: // (misaligned)
000001CA 2473 6574 movea.l A2, <<invalid full ext with I/IS == 4>>
label000001CD: // (misaligned)
000001CE 2470 6172 656E 7424 6368 movea.l A2, [[A0 + 0x656E7424] + 0x6368]
// begin alternate branch 000001D2-000001D8
label000001D2:
000001D2 656E bcs +0x70 /* 00000242 */
000001D4 7424 moveq.l D2, 0x24
000001D6 6368 bls +0x6A /* 00000240 */
// end alternate branch 000001D2-000001D8
label000001D2: // (misaligned)
000001D8 6F69 ble +0x6B /* 00000243 */
000001DA 6365 bls +0x67 /* 00000241 */
000001DC 0001 0858 ori.b D1, 0x58 /* 'X' */
000001E0 0001 000F ori.b D1, 0xF
label000001E3: // (misaligned)
000001E4 6E65 bgt +0x67 /* 0000024B */
000001E6 7724 moveq.l D3, 0x24
000001E8 7379 moveq.l D1, 0x79
000001EA 7374 moveq.l D1, 0x74
000001EC 656D bcs +0x6F /* 0000025B */
000001EE 2463 movea.l A2, -[A3]
000001F0 616C bsr +0x6E /* 0000025E */
000001F2 6C00 0002 bge +0x4 /* 000001F6 */
fn000001F3: // (misaligned)
label000001F6:
000001F6 12F0 1330 0003 0011 move.b [A1]+, [A0 + 0x30011 + D1 * 2]
// begin alternate branch 000001FA-000001FE
label000001FA:
000001FA 0003 0011 ori.b D3, 0x11
// end alternate branch 000001FA-000001FE
label000001FA: // (misaligned)
000001FE 7379 moveq.l D1, 0x79
00000200 7374 moveq.l D1, 0x74
label00000201: // (misaligned)
00000202 656D bcs +0x6F /* 00000271 */
00000204 2465 movea.l A2, -[A5]
00000206 6E74 bgt +0x76 /* 0000027C */
00000208 7279 moveq.l D1, 0x79
0000020A 2469 6E66 movea.l A2, [A1 + 0x6E66]
// begin alternate branch 0000020C-0000020E
label0000020C:
0000020C 6E66 bgt +0x68 /* 00000274 */
// end alternate branch 0000020C-0000020E
label0000020C: // (misaligned)
0000020E 6F00 0001 ble +0x3 /* 00000211 */
label00000211: // (misaligned)
00000212 17B8 0000 0019 move.b [A3 + D0.w + 0x19], [0x00000000 /* __m68k_reset_stack__ */]
label00000217: // (misaligned)
00000218 7379 moveq.l D1, 0x79
0000021A 7374 moveq.l D1, 0x74
0000021C 656D bcs +0x6F /* 0000028B */
label0000021D: // (misaligned)
0000021E 2465 movea.l A2, -[A5]
00000220 6E61 bgt +0x63 /* 00000283 */
00000222 626C bhi +0x6E /* 00000290 */
00000224 6524 bcs +0x26 /* 0000024A */
00000226 636F bls +0x71 /* 00000297 */
00000228 6D6D blt +0x6F /* 00000297 */
0000022A 616E bsr +0x70 /* 0000029A */
0000022C 6424 bcc +0x26 /* 00000252 */
label0000022D: // (misaligned)
0000022E 646F bcc +0x71 /* 0000029F */
00000230 7400 moveq.l D2, 0x00
00000232 0001 11A8 ori.b D1, 0xA8
00000236 0000 0017 ori.b D0, 0x17
0000023A 7379 moveq.l D1, 0x79
0000023C 7374 moveq.l D1, 0x74
0000023E 656D bcs +0x6F /* 000002AD */
label00000240:
00000240 2469 676E movea.l A2, [A1 + 0x676E]
// begin alternate branch 00000242-00000244
label00000242:
00000242 676E beq +0x70 /* 000002B2 */
// end alternate branch 00000242-00000244
label00000241: // (misaligned)
label00000242: // (misaligned)
label00000243: // (misaligned)
00000244 6F72 ble +0x74 /* 000002B8 */
00000246 6524 bcs +0x26 /* 0000026C */
00000248 6C61 bge +0x63 /* 000002AB */
label0000024A:
0000024A 7374 moveq.l D1, 0x74
label0000024B: // (misaligned)
0000024C 2463 movea.l A2, -[A3]
0000024E 6861 bvc +0x63 /* 000002B1 */
00000250 7200 moveq.l D1, 0x00
label00000252:
00000252 0001 20E8 ori.b D1, 0xE8
00000256 0000 000C ori.b D0, 0xC
0000025A 7379 moveq.l D1, 0x79
label0000025B: // (misaligned)
0000025C 7374 moveq.l D1, 0x74
fn0000025E:
0000025E 656D bcs +0x6F /* 000002CD */
00000260 2471 756F movea.l A2, <<invalid full ext with IS == 1 and I/IS == 7>>
00000264 7465 moveq.l D2, 0x65
00000266 0001 2124 ori.b D1, 0x24 /* '$' */
0000026A 0000 000E ori.b D0, 0xE
// begin alternate branch 0000026C-00000270
label0000026C:
0000026C 000E 7379 ori.b A6, 0x79 /* 'y' */
// end alternate branch 0000026C-00000270
label0000026C: // (misaligned)
0000026E 7379 moveq.l D1, 0x79
00000270 7374 moveq.l D1, 0x74
label00000271: // (misaligned)
00000272 656D bcs +0x6F /* 000002E1 */
label00000274:
00000274 246E 6F71 movea.l A2, [A6 + 0x6F71]
00000278 756F moveq.l D2, 0x6F
0000027A 7465 moveq.l D2, 0x65
label0000027C:
0000027C 0001 2160 ori.b D1, 0x60 /* '`' */
00000280 0001 0014 ori.b D1, 0x14
label00000283: // (misaligned)
00000284 6765 beq +0x67 /* 000002EB */
00000286 7424 moveq.l D2, 0x24
00000288 6669 bne +0x6B /* 000002F3 */
0000028A 6C65 bge +0x67 /* 000002F1 */
label0000028B: // (misaligned)
0000028C 2473 7461 movea.l A2, [A3 + D7.w * 4 + 0x61]
label00000290:
00000290 7475 moveq.l D2, 0x75
00000292 7324 moveq.l D1, 0x24
00000294 636F bls +0x71 /* 00000305 */
00000296 6465 bcc +0x67 /* 000002FD */
label00000297: // (misaligned)
00000298 0001 219C ori.b D1, 0x9C
// begin alternate branch 0000029A-000002A2
fn0000029A:
0000029A 219C 0000 move.l [A0 + D0.w], [A4]+
0000029E 0016 636C ori.b [A6], 0x6C /* 'l' */
// end alternate branch 0000029A-000002A2
fn0000029A: // (misaligned)
0000029C 0000 0016 ori.b D0, 0x16
label0000029F: // (misaligned)
000002A0 636C bls +0x6E /* 0000030E */
000002A2 6561 bcs +0x63 /* 00000305 */
000002A4 7224 moveq.l D1, 0x24
000002A6 6669 bne +0x6B /* 00000311 */
000002A8 6C65 bge +0x67 /* 0000030F */
000002AA 2473 7461 movea.l A2, [A3 + D7.w * 4 + 0x61]
label000002AB: // (misaligned)
label000002AD: // (misaligned)
000002AE 7475 moveq.l D2, 0x75
000002B0 7324 moveq.l D1, 0x24
label000002B1: // (misaligned)
label000002B2:
000002B2 636F bls +0x71 /* 00000323 */
000002B4 6465 bcc +0x67 /* 0000031B */
000002B6 0001 21DC ori.b D1, 0xDC
// begin alternate branch 000002B8-000002C0
label000002B8:
000002B8 21DC 0001 move.l [0x00000001], [A4]+
000002BC 0009 7075 ori.b A1, 0x75 /* 'u' */
// end alternate branch 000002B8-000002C0
label000002B8: // (misaligned)
000002BA 0001 0009 ori.b D1, 0x9 /* '\t' */
000002BE 7075 moveq.l D0, 0x75
000002C0 6E63 bgt +0x65 /* 00000325 */
000002C2 7475 moveq.l D2, 0x75
000002C4 6174 bsr +0x76 /* 0000033A */
000002C6 6500 0001 bcs +0x3 /* 000002C9 */
label000002C9: // (misaligned)
000002CA 2218 move.l D1, [A0]+
000002CC 0001 000C ori.b D1, 0xC
label000002CD: // (misaligned)
000002D0 7379 moveq.l D1, 0x79
000002D2 7374 moveq.l D1, 0x74
000002D4 656D bcs +0x6F /* 00000343 */
000002D6 2477 7269 movea.l A2, [A7 + D7.w * 2 + 0x69]
000002DA 7465 moveq.l D2, 0x65
000002DC 0001 2258 ori.b D1, 0x58 /* 'X' */
000002E0 0000 000E ori.b D0, 0xE
label000002E1: // (misaligned)
000002E4 7374 moveq.l D1, 0x74
000002E6 6172 bsr +0x74 /* 0000035A */
000002E8 7475 moveq.l D2, 0x75
000002EA 7057 moveq.l D0, 0x57
label000002EB: // (misaligned)
000002EC 696E bvs +0x70 /* 0000035C */
000002EE 646F bcc +0x71 /* 0000035F */
000002F0 7773 moveq.l D3, 0x73
label000002F1: // (misaligned)
000002F2 0001 0560 ori.b D1, 0x60 /* '`' */
label000002F3: // (misaligned)
000002F6 0002 000E ori.b D2, 0xE
000002FA 7379 moveq.l D1, 0x79
000002FC 7374 moveq.l D1, 0x74
label000002FD: // (misaligned)
000002FE 656D bcs +0x6F /* 0000036D */
00000300 2472 6574 movea.l A2, <<invalid full ext with I/IS == 4>>
00000304 7261 moveq.l D1, 0x61
label00000305: // (misaligned)
00000306 6374 bls +0x76 /* 0000037C */
00000308 0001 13F0 ori.b D1, 0xF0
0000030C 0002 000E ori.b D2, 0xE
// begin alternate branch 0000030E-00000312
label0000030E:
0000030E 000E 7379 ori.b A6, 0x79 /* 'y' */
// end alternate branch 0000030E-00000312
label0000030E: // (misaligned)
label0000030F: // (misaligned)
00000310 7379 moveq.l D1, 0x79
label00000311: // (misaligned)
00000312 7374 moveq.l D1, 0x74
00000314 656D bcs +0x6F /* 00000383 */
00000316 2461 movea.l A2, -[A1]
00000318 626F bhi +0x71 /* 00000389 */
0000031A 6C69 bge +0x6B /* 00000385 */
label0000031B: // (misaligned)
0000031C 7368 moveq.l D1, 0x68
0000031E 0001 1434 ori.b D1, 0x34 /* '4' */
00000322 0001 000B ori.b D1, 0xB
label00000323: // (misaligned)
label00000325: // (misaligned)
00000326 7379 moveq.l D1, 0x79
00000328 7374 moveq.l D1, 0x74
0000032A 656D bcs +0x6F /* 00000399 */
0000032C 2463 movea.l A2, -[A3]
0000032E 616C bsr +0x6E /* 0000039C */
00000330 6C00 0002 bge +0x4 /* 00000334 */
label00000334:
00000334 1370 13B0 0000 000C 7379 move.b [A1 + 0x7379], [0xC + D1 * 2]
// begin alternate branch 0000033A-0000033E
fn0000033A:
0000033A 000C 7379 ori.b A4, 0x79 /* 'y' */
// end alternate branch 0000033A-0000033E
fn0000033A: // (misaligned)
0000033E 7374 moveq.l D1, 0x74
00000340 656D bcs +0x6F /* 000003AF */
00000342 2461 movea.l A2, -[A1]
label00000343: // (misaligned)
00000344 626F bhi +0x71 /* 000003B5 */
00000346 7274 moveq.l D1, 0x74
00000348 0001 07D8 ori.b D1, 0xD8